home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperLaunch 1.5.cpt / HyperLaunch 1.5 / HyperLaunch! / card_2972.txt < prev    next >
Text File  |  1987-09-01  |  11KB  |  541 lines
  1. -- card: 2972 from stack: in
  2. -- bmap block id: 3567
  3. -- flags: 4000
  4. -- background id: 2652
  5. -- name: Main card
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   hide card field 1
  9.   get the name of this card
  10.   put it into card field "Which"
  11. end OpenCard
  12.  
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 8000
  18. -- rect: left=167 top=29 right=64 bottom=209
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 1011 / 1011
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: 
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   go "Home"
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 8000
  37. -- rect: left=217 top=27 right=67 bottom=251
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 1017 / 1017
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: 
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect barn door open
  49.   go "Phone"
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 8000
  57. -- rect: left=255 top=22 right=66 bottom=308
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 20965 / 20965
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: 
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   go to card id 16690 of stack "Datebook"
  69. end mouseUp
  70.  
  71.  
  72.  
  73.  
  74. -- part 4 (button)
  75. -- low flags: 00
  76. -- high flags: 8000
  77. -- rect: left=302 top=26 right=68 bottom=353
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 15972 / 15972
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: 
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   go to stack "Datebook"
  89. end mouseUp
  90.  
  91.  
  92.  
  93.  
  94. -- part 5 (button)
  95. -- low flags: 00
  96. -- high flags: 8000
  97. -- rect: left=361 top=29 right=67 bottom=388
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 17481 / 17481
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: 
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   go to card id 3076 of stack "Address"
  109. end mouseUp
  110.  
  111.  
  112.  
  113.  
  114. -- part 8 (button)
  115. -- low flags: 00
  116. -- high flags: 8004
  117. -- rect: left=124 top=132 right=182 bottom=173
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 22269 / 22269
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: MS-Excel
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   open"Excel"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 10 (button)
  134. -- low flags: 00
  135. -- high flags: 8004
  136. -- rect: left=67 top=186 right=236 bottom=117
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 5280 / 5280
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Word 3.01
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   open"Microsoft Word"
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 11 (button)
  153. -- low flags: 00
  154. -- high flags: 8004
  155. -- rect: left=238 top=77 right=127 bottom=288
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 15402 / 15402
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Illustrator
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   open"Illustrator‚Ñ¢"
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 12 (button)
  172. -- low flags: 00
  173. -- high flags: 8004
  174. -- rect: left=238 top=132 right=182 bottom=288
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 22430 / 22430
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: RSG3!
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   open"RSG3!"
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 13 (button)
  191. -- low flags: 00
  192. -- high flags: 8004
  193. -- rect: left=124 top=186 right=236 bottom=174
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 17335 / 17335
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: XPress!
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   open"Xpress"
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 14 (button)
  210. -- low flags: 00
  211. -- high flags: 8004
  212. -- rect: left=67 top=132 right=182 bottom=117
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 20600 / 20600
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: More
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   open"More‚Ñ¢ 1.1"
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 15 (button)
  229. -- low flags: 00
  230. -- high flags: 8004
  231. -- rect: left=180 top=77 right=127 bottom=230
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 15154 / 15154
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: FullPaint
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   open"FullPaint"
  243. end mouseUp
  244.  
  245.  
  246.  
  247. -- part 16 (button)
  248. -- low flags: 00
  249. -- high flags: 0000
  250. -- rect: left=327 top=320 right=333 bottom=478
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 1
  254. -- font id: 0
  255. -- text size: 12
  256. -- style flags: 0
  257. -- line height: 16
  258. -- part name: About Fairgate...
  259. ----- HyperTalk script -----
  260. on mouseUp
  261.   visual effect dissolve slow to gray
  262.   go to card "About Fairgate"
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 20 (button)
  268. -- low flags: 00
  269. -- high flags: 8004
  270. -- rect: left=67 top=77 right=127 bottom=117
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 23289 / 23289
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: C-Draw
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   open"Cricket Draw"
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 24 (button)
  287. -- low flags: 00
  288. -- high flags: 8004
  289. -- rect: left=123 top=77 right=127 bottom=173
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 24492 / 24492
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: C-Graph
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   open"Cricket Graph"
  301. end mouseUp
  302.  
  303.  
  304.  
  305. -- part 28 (button)
  306. -- low flags: 00
  307. -- high flags: 8004
  308. -- rect: left=295 top=77 right=127 bottom=345
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 27803 / 27803
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: MacDraw
  317. ----- HyperTalk script -----
  318. on mouseUp
  319.   open"MacDraw"
  320. end mouseUp
  321.  
  322.  
  323.  
  324. -- part 29 (button)
  325. -- low flags: 00
  326. -- high flags: 8004
  327. -- rect: left=352 top=77 right=127 bottom=402
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 1003 / 1003
  330. -- text alignment: 1
  331. -- font id: 0
  332. -- text size: 12
  333. -- style flags: 0
  334. -- line height: 16
  335. -- part name: MacPaint
  336. ----- HyperTalk script -----
  337. on mouseUp
  338.   open"MacPaint"
  339. end mouseUp
  340.  
  341.  
  342.  
  343. -- part 30 (button)
  344. -- low flags: 00
  345. -- high flags: 8004
  346. -- rect: left=408 top=77 right=127 bottom=458
  347. -- title width / last selected line: 0
  348. -- icon id / first selected line: 1005 / 1005
  349. -- text alignment: 1
  350. -- font id: 0
  351. -- text size: 12
  352. -- style flags: 0
  353. -- line height: 16
  354. -- part name: MacWrite
  355. ----- HyperTalk script -----
  356. on mouseUp
  357.   open"MacWrite"
  358. end mouseUp
  359.  
  360.  
  361.  
  362. -- part 31 (button)
  363. -- low flags: 00
  364. -- high flags: 8004
  365. -- rect: left=180 top=132 right=182 bottom=230
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 22566 / 22566
  368. -- text alignment: 1
  369. -- font id: 0
  370. -- text size: 12
  371. -- style flags: 0
  372. -- line height: 16
  373. -- part name: PageMaker
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   open"PageMaker"
  377. end mouseUp
  378.  
  379.  
  380.  
  381. -- part 32 (button)
  382. -- low flags: 00
  383. -- high flags: 0000
  384. -- rect: left=261 top=296 right=322 bottom=285
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 1013 / 1013
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: Go to Utilities screen
  393. ----- HyperTalk script -----
  394. on mouseUp
  395.   go to card "Utilities"
  396. end mouseUp
  397.  
  398.  
  399.  
  400. -- part 33 (button)
  401. -- low flags: 00
  402. -- high flags: 8004
  403. -- rect: left=295 top=133 right=183 bottom=345
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 29096 / 29096
  406. -- text alignment: 1
  407. -- font id: 0
  408. -- text size: 12
  409. -- style flags: 0
  410. -- line height: 16
  411. -- part name: SuperPaint
  412. ----- HyperTalk script -----
  413. on mouseUp
  414.   open"SuperPaint"
  415. end mouseUp
  416.  
  417.  
  418.  
  419. -- part 34 (button)
  420. -- low flags: 00
  421. -- high flags: 8004
  422. -- rect: left=353 top=133 right=183 bottom=403
  423. -- title width / last selected line: 0
  424. -- icon id / first selected line: 6892 / 6892
  425. -- text alignment: 1
  426. -- font id: 0
  427. -- text size: 12
  428. -- style flags: 0
  429. -- line height: 16
  430. -- part name: T-Scan
  431. ----- HyperTalk script -----
  432. on mouseUp
  433.   open"Thunderscan"
  434. end mouseUp
  435.  
  436.  
  437.  
  438. -- part 35 (button)
  439. -- low flags: 00
  440. -- high flags: 8004
  441. -- rect: left=408 top=133 right=183 bottom=458
  442. -- title width / last selected line: 0
  443. -- icon id / first selected line: 30060 / 30060
  444. -- text alignment: 1
  445. -- font id: 0
  446. -- text size: 12
  447. -- style flags: 0
  448. -- line height: 16
  449. -- part name: Viewer
  450. ----- HyperTalk script -----
  451. on mouseUp
  452.   open"Viewer"
  453. end mouseUp
  454.  
  455.  
  456.  
  457. -- part 37 (field)
  458. -- low flags: 80
  459. -- high flags: 0004
  460. -- rect: left=202 top=204 right=263 bottom=388
  461. -- title width / last selected line: 0
  462. -- icon id / first selected line: 0 / 0
  463. -- text alignment: 0
  464. -- font id: 2
  465. -- text size: 12
  466. -- style flags: 0
  467. -- line height: 16
  468. -- part name: Paths info…
  469. ----- HyperTalk script -----
  470. hide card field 1
  471.  
  472.  
  473.  
  474. -- part 40 (button)
  475. -- low flags: 00
  476. -- high flags: 0000
  477. -- rect: left=122 top=8 right=67 bottom=167
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: HyperCard help
  486. ----- HyperTalk script -----
  487. on mouseUp
  488.   push recent card
  489.   go to stack "Help"
  490. end mouseUp
  491.  
  492.  
  493.  
  494. -- part 42 (field)
  495. -- low flags: 00
  496. -- high flags: 0004
  497. -- rect: left=311 top=317 right=337 bottom=473
  498. -- title width / last selected line: 0
  499. -- icon id / first selected line: 0 / 0
  500. -- text alignment: 65535
  501. -- font id: 0
  502. -- text size: 12
  503. -- style flags: 0
  504. -- line height: 16
  505. -- part name: Which
  506.  
  507.  
  508. -- part 43 (button)
  509. -- low flags: 00
  510. -- high flags: 0000
  511. -- rect: left=7 top=178 right=225 bottom=53
  512. -- title width / last selected line: 0
  513. -- icon id / first selected line: 0 / 0
  514. -- text alignment: 1
  515. -- font id: 0
  516. -- text size: 12
  517. -- style flags: 0
  518. -- line height: 16
  519. -- part name: Add an application
  520. ----- HyperTalk script -----
  521. on mouseUp
  522.   Ask "Create button for the application named:"
  523.   if length(it) <> 0 then
  524.     DoMenu New Button
  525.     Set name of button "New Button" to it
  526.     Set style of button it to "opaque"
  527.     Set textfont of button it to "Geneva"
  528.     Set textsize of button it to "9"
  529.     DoMenu Send Farther
  530.   end if
  531. end mouseUp
  532.  
  533.  
  534.  
  535. -- part contents for card part 37
  536. ----- text -----
  537. When you're done selecting a path, use the '~' or 'Esc' keys to return to this screen.
  538.  
  539. -- part contents for card part 42
  540. ----- text -----
  541. card "Main card"